clc
oo=0;
while oo~=6
oo=menu('Меню','Диаграма рупора','Эпюра напряжонности','Диаграма зеркала','Главный липесток','КНД','Назад');
if oo==1 gr_rup;end
if oo==2 epura;end
if oo==3 parabol;end
if oo==4 gl_lip;end
if oo==5 knd;end
end